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++ 
Facility: RMS 


Abstract: 


This module performs network access/deaccess functions including 
assigning a channel to the network device and altering the 
characteristics of the network device as appropriate. The access 
function creates a logical link between this process and either: 
(1) the specified target task, or : 

(2) FAL (file access Listeners for remote file access. 


Environment: VAX/VMS, executive mode 


Author: James A. Krycka, Creation Date: 09-DEC-1977 
Modified By: 
V03-009 JAK0146 J A Krycka 27-Jun-1984 
Copy entire task specification string to the NCB in NTSACCESS. 
v03-008 JEJ0029 J E Johnson 17-Apr-1984 
Fix bug caused by previous change. 
v03-007 JEJ0005 J E Johnson 08-Mar-1984 


Process quoted filename specifications here to determine if 
a DAP or NSP request has been made. 


V03-006 JAK0124 J A Krycka 06-Sep-1983 : 
Make corresponding source code change for VMS V3.5 patch in 
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v04-000 ante $3:30:9 CRMS.SRCINTOACCESS.MAR; 1 = dy | 
B98 28 ; support of VAXELAN,. 
$00 60 : V03-005 RASO174 Ron Schaefer 29-Jul-1983 
4 8) : Change reference of FABSV_UFM to FABSV_CHAN_MODE. 
0000 88 : V03-004 JAKO105 J A Krycka 11-May-1983 
Boh $e : Add comments. 
0000 66 : v03-003 KBT0425 Keith B. 01-Dec-1982 
B88 rt ; Change 1FBSW_ DEVBUF S12 to IPB t °DEVBUF SIZ. 
0000 +4 : v03-002 KBT0309 Keith B. Thompson 27-Aug-1982 
94 4 : Fix some broken branches. 
0000 ee : v03-001 yuHO001 Jeffrey W. Horn 29-Jun-1982 
0000 tS 3 Fix broken BSBW branch. 
0000 74; 
0000 75 ;-- 
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RMS.SRCINTOACCESS.MAR; 1 
~SBTTL DECLARATIONS 


Include tiles: 


Device Characteristics 
e Access Block symbols 
e Work Area symbols 


/0 function codes 


Process Status Longword symbols 
RMS exit code symbols 


; 
3 Macros: 


3; Equated Symbols: 


ASSUME DAP$Q_DCODE _FLG EQ 0 
ASSUME NWASQ"FLG EG 0 


wroaccess 
v04-00 


NETWORK A 
NTSASSIGN 


E1 
10 
E9 


9E 


CCE 


: 3 
DEACCESS 1 mi iets 3:67:08 AX/VMS Macro V04-00 Page 
WORK ASSIGN CHANNEL -SEP-1984 16:20: RMS .SRCINTOACCESS.MAR; 1 


~SBTTL NTSASSIGN = NETWORK ASSIGN CHANNEL 


S$/ 
NET 


: NTSASSIGN = assigns a channel to the network device (i.e., _NETO:). 
Calling Sequence: 

BSBW NTSASSIGN 
Input Parameters: 


R8 FAB address 
RY IFAB address 
R10 FWA address 
R11 Impure Area address 


: Implicit Inputs: 

: None 

: Output Parameters: 

; RO Status code (SS) 
; R1-R3 Destroyed 

: Implicit Outputs: 

: F ABSB_ACMODES 

3 FWASV_OBJTYPE 

: IF BSW~CHNL 

3 1FB$B_MODE 

: IFBSL-NWA_PTR 

; NWASQ_NCB 

: Completion Codes: 

: Standard system service status codes 
: Side Effects: 


None 


NTSASSIGN:: ; Entry point 
BBC #FWASV_QUOTED,(R10),5$ ; Not quoted, must be DAP request 
BSBB PARSE GUOTED_STRING ; Parse the quoted specification 
BLBC RO, 208 ; If parse failed, return the error 


; Setup device name descriptor and associated string for input to the 
; Assign Channel system service. 


5$: MOVL IFBSL_NWA_PTR(RY) ,R1 ; Get address of NWA ‘ 
MOVAQ NWASQ"NCBTR1),R2 ; Get address of scratch descriptor 
MOVAB NWA$T-~NCBBUF (R1) ,R3 ; Get address of scratch buffer 


ed ee ed ce ee a ce ed ee eee ed ee ce a ce cd a ce ce ce ee ed ee ce ee cae ce ee ce ce cee ce ee ee ee ee ee ce ce ee ce ee ee ee ee ee ee ee eed ee eed 
DERE. XPAA DPD Gs BB NANI WII WII NII RIPONIPONINININYIIYD 2 SS OS OO 
CONAN WN OOD NOME WIN OOD NAMEN OC OD NAU EWI 2 OOOO NEW SO ODONOUE UP 
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NTOACCESS NETWORK ACCESS/DEACCESS 15-SEP-1984 23:47: AX/VMS Macro V04-00 Page 
Yoon 008 NTSASSIGN = NETWORK ASSIGN CHANNEL aS e 1 3be $335 :08 RMS ..SRCINTOACCESS.MAR;1 . (3) 
dO 17 «169 MOVL #6, (R2) ; Fill in string count 
04 A ; 0 ok 19 MOVL 40 4(R2) ; Fill in string address 
63 20203A30 54454E5F BF 74 095 178 MOVa WPAN NET 0: \,(R3) ; Store device Rane string 
9 T7353 
8 4 te ; Determine which mode to use in making the channel assignment. 
029 176° 
51 01 00 09 9 159 MOVL #PSLSC_EXEC,R1 3; Assume executive mode 
11 €1 O02C 178 BBC #F ABSV_UFO,- : Branch if UFO clear 
10 04 A8 O2E 179 FABSL FOP(R8) ,10$ ; 
8 EF 0031 180 EXTZV #FAB 0_CHAN_MODE ,- ; Get requested mode 
033 181 #FABSS CHAN aes - : 
51 GAA 034 18¢ FABSB_ACMODES(RS) ,R1 : 
51 OA AY 91 0037 18 CMPB if B$B_MODE(R9) ,R1 3 Maximize this with caller's mode 
04 18 0038 13 BLEQU 10 ; 
51 OA AY 9A QOO3D 185 MOVZBL IFBSB_MODE(R9) ,R1 ; Switch to caller's mode 
$04] 189 
0041 188 ; Create a contrat tatoraes ten ath to NETACP in preparation for 
0041 189 ; non-transparent network 1/0. Do not associate a mailbox with the channel, 
0041 190 ; as secondary inbound connect initiates and interrupt messages are not 
0041 191 ; suppported. 
0041 136 3 
0041 19 
0041 194 10$: SASSIGN_S- : Assign the channel 
0041 195 “DEVNAM=(R2) = ; Address of device name descriptor 
0041 196 CHAN= 1FBSV CHNL(R9) = ; Address to return channel # 
0041 197 ACMODE=R1 ; Access mode 
05 0051 £198 20$: RSB ; Exit with system service code in RO 
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r 
IGN CHANNEL =SEP=1984 16:20: RMS..SRCINTOACCESS.MAR; 1 ( 


Parse the quoted file name string to determine the network specific 
information. 


(1) Set the OBJTYPE flag if the quoted string contains an equals character 
to indicate that it is of the ‘‘objecttype=...°' form. This is form 1. 


| 
(2) Set the NETSTR a if the quoted string contains a slash character 
after the equals character to indicate that it is of the 
objectt pectesanene/oetece data’’ form. Note that the logical name 
translation of SYSSNET yields an equivalence string containing a 
quoted string of this form. This is form 2. 


(3) In addition, if the quoted string is of the form given in 3, then 
store a character count that represents the number of characters 
in the substring /netacp_data’’ (including the trailing quote). 


(4) Set the WILDCARD character flag if test 1 failed and the quoted string 
contains one of the foilowing characters: asterisk, percent sign, or 
question mark. 


(5) Finally, copy the quoted string (including the quotes) to buffer in NWA. 


PARSE _QUOTED_STRING: ; Entry point 
OOFO 8F 6B PUSHR #*M<R4,R5,R6,R7> : Save york ing registers 
56 0170 CA 7D MOVQ FWASQ_QUOTED(R10).R6 =; Get the quoted string descriptor. 


Check for a task specification Fer cne gpetened in quotes, i.e., 


node::"‘objecttype=...'' form. (1) or 


67 56 3 3A LOCC as aaaeade Search for ‘=" within quoted string 


DD DED DDE DEDEDE VTS 


OOCCOCCOCOCOCOSOSOSCOOCOC COCO COO COCO OOCO OOOO OOOO OOOOOO OOOO OOoOO 
OVMIVIAWIAA = "OOOO owm oo 


OOOCOSCOCOSCSOSOOSOOSOOOOOSOOSSOOOSOSOOOSOSOSOSOOSOSOSOSOOOOSOOSOOOOOOOOOOOOOoOO 


13 5 BEQL ; Branch if no match (RO=0 on no match) 
6 SSB #FWASV_OBJTYPE, (R10) ; Flag ‘objecttype=..." form 
; of quoted string 
9 3 
9 3; Now check if it is of form (2). 
61 50 $f 3A : LOCC #*A\/\,RO,(R1) ; Search for '/* within quoted string 
2. oe 4 BEQL 30$ ; Branch if no match 
04 ey 81 re 5 CMPW RO, #4 ; Length of /netacp_data’’ must be 
Flea 3 § BLSSU ERRQUO ; _at least 4 characters 
7 SSB #FWASV_NETSTR, (R10) ; Flag ‘objecttype=taskname/..." form 
28 38611 0074 8 BRB 30$ : of quoted string 
O76 550 
076 1 3 Check for a wildcard foreign file specification string enclosed in quotes, 
th ¢ ; i.e., node::*'foreign-filespec’’ form. 
B70 4 : Note: Since the parse operation is perform entirely at the local node, there 
76 72 $ no way to tell for sure whether or not the file Spec tT icat ton 
076 6; contains any wildcard characters (as understood by the remote system). 
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Von 008 NTSASSIGN = NETWORK ASSIGN CHANNEL ae a $3:30:08 RMS.SRCINTOACCESS.MAR; 1 - (4) 
976 rs The best we can do here is to scan the quoted eer ing for likey wildcard 
76 8 3 characters (*, %, and ?), and set the FWASV_WILDCARD bit if any are 
076 3 found. 
ae 
67 56 A 3A 0076 96 10$: LOCC #*A\*\ RG, (R7) 3; Search for ‘*' within quoted string 
g 12 Bsa 6 BNEQ 3; _and branch if foun 
67 56 3A 7¢ 64 LOCC #*A\ZN RG, (R7) ; Search for ‘%' within quoted string 
96 12 itt 65 BNEQ 3 _and branch if found 
67 56 F 3A 008 ¢ LOCC #*A\7\,R6, (R7) ; Search for '?° within quoted string 
16 «613 0088 é3 BEQL 30$ 3 and branch if not found 
0 H 
a 19 ; Store the wildcard status here as a generic wildcard only. 
008 = 
6088 S 208 SSB #FWASV_WILDCARD,(R10) =; Signet wildcard character present 
7 28 a8 D0 OC8C 27% MOVL  FABSL_RNAM(RB) ,R? : Get the name block pointer 
OQOOOO00000'EF 16 0090 75 $B RAL HENAN ; Ensure that the NAM block is good. 
05 50 €9 0096 276 BLBC RO,30$ :; Branch if not. 
0099 77 SSB #NAMSV_WILDCARD,- ; Declare the generic wildcard. 
0099 78 NAMSL_FNB(R7) : 
O09E 380 
444 28 : Save the number of bytes in the optional ‘'/netacp_data’’ in the NWA. 
O09E 283 | 
52 3C a9 D0 009 284 308: MOVL IFBSL_NWA_PTR(RY) ,R2 3; get address of NWA 
O16F C2 50 «90 OA 385 MOVE RO,NWASB_NETSTRSIZ(R2) ; Store # bytes in /netacp_data”’ 
OO0A7 $9 RMSSUC 
OOFO 8F BA OOAA 288 POPR #*M<R4,R5,R6,R7> ; Restore working registers 
05 OOAE $85 RSB : Exit successfully 
OoAr 991 
OOAF $36 : Process quoted string error. 
ae 
OOAF 95 ERRQUO: RMSERR QUO ; Declare error in quoted string 
OOFO 8F BA O0B4 296 POPR #*M<R4,R5,R6,R7> ; Restore working registers 
05 00B8 297 RSB 
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v04-000 NTSMOD_DEV_CHAR = MODIFY DEVICE CHARACTE iets 3:30:08 RMS.SRCINTOACCESS.MAR; 1 . a) 
989 + -SBTTL NTSMOD_DEV_CHAR = MODIFY DEVICE CHARACTERISTICS | 
B9 1 3++ 
BY ¢ ; NTSMOD_DEV_CHAR = modifies the characteristics of the network device and 
bee 7 ; denotes whether network 1/0 will be performed at the DAP or NSP Level. 
0089 é 3 Calling Sequence: 
0089 307: BSBW  NTSMOD_DEV_CHAR | 
0089 308; ts | 
0089 09 ; Input Parameters: 
0089 10 ; 
00B9 11 3 R8 FAB address 
0089 \¢ 3 Rg IFAB address 
0089 15 3 R10 FWA address 
0089 14; R11 Impure Area address 
00B9 15 3 
0089 16 3; Implicit Inputs: 
00B9 17: 
0089 18 ; FWASV_OBJTYPE 
0089 319; F WASB_ SUBNODCNT 
0089 20 ; 
0089 $3 3; Output Parameters: 
0089 ; ; 
0089 § $ None 
00B9 4; 
00B9 $2 3 Implicit Outputs: 
00B9 6; 
0089 327; IFBSV_DAP 
0089 328 ; IFBSV_NSP 
00B9 4 3 IFBSL_AS_DEV 
0089 330; IFBSL_PRIM_DEV 
0089 $3) 3 IFBSL_DEVBOF SIZ 
00B9 $$ ; 
00B9 333 ; Completion Codes: 
00B9 334 ; 
00B9 335; None 
00B9 36 ; 
0089 37 ; Side Effects: 
0089 38 ; 
00B9 39 ; None 
00B9 40 ; 
00B9 41 ;-- 
0B9 4g 
0B9 45 NTSMOD_DEV_CHAR:: 3; Entry point 
Sere | 
0089 46 ; Determine whether the network request is for file access via a remote FAL or | 
+94 rt : for task-to-task communication. | 
Oba 49 : Note: If more than one node spec string was specified (manual routing). then 
0B9 50 ; treat this as a DAP level access so that RMS will connect to FAL at the | 
8 30 5 adjacent node (which is actually an intermediate node). 
Bo 353° | 
2F AA 95 44 54 TSTB F WASB_SUBNODCNT (R10) ; Branch if more than one node spec 
04 +12 «O0BC 55 BNEQ 10$ 3: was specified 
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IFY DEVICE CHARACTE aoe 138: 6:20: ‘0 RMS ..SRCINTOACCESS.MAR; 1 - 


BBS #FWASV_OBJTYPE,(R10), 208; z Bran’ if device name string is 


OC 6A 31 €0 
NSP objtype type format 


; Denote that network 1/0 thru RMS will be at the file access level using 
DAP to communicate with the remote FAL. 


Note: IFBS$L ec veursie may be adjusted weuers by NTSEXCH_CNF after the 
negotiated DAP buf er size has been determined. For record 1/0 mode 
access to a remote file, IFBSL_DEVBUFSIZ Limits the maximum record size 
that can be supported because Tt is used at SCONNECT time to allocate 
the BDB buffer through which all records must pass. 


Sete te Ge Ge Ge Sete Ge te 


10$: S$SETBIT a1 ety DAP, (R9) Set DAP flag 
MOVZWL oat , IFBSL_ DEVBUFSIZ(R9): establish initial device buffer size 


48 AQ 0200 BF 3 
OA 1 BRB 3; Join common code 


=o 


: Denote that network 1/0 thru RMS will be at the task-to-task Level using 
; NSP to communicate with the remote partner process. 


208: SSETBIT #IFBSV_NSP, ( 


(RY) et NSP flag 
48 A9 1000 BF 3¢ MOVZWL #4096, TFBSL “SEVBUF SIZ (R95 ; "Treblion evice buffer size 


: Alter the device characteristics. 


30$: SSETBIT #DEVSV_REC, IFBSL_PRIM_ sed ig + 


ay its a record oriented device 
SCLRBIT #DEVSV_MBX,IFBSL_PRIM DEV(RS 
Say its a not a mailbox-like device 


WAWNWANWAAAWN NA AAAWNNNN NAAN NAIA WIAA = bed 


MMMM OOVIVISIIIVIANAAHAAAAOHHAAAAHAHAAHOANOAOOW 
30 SO O09 09 69 69 69 09 09 09 09 09 SII NINES NIN NIN NIAAA AAAAAAOOt 
MH OOWDNAUES WN $9 ODNAULS WN O OONAUE WN OOONO 


SOOoOooooooooooooooOoOoOooCOoOoOOOOOOOOOO 
VVOOO OWWOWOOOOroMMmMmMmmmmmmcas oO 


OOoooooooooooooooooooo 


69 00 MOVL IFBSL_PRIM_DEV(R9) ,- : Copy device characteristics 
008C C9 IFBSL_AS_DEV(R9) ; 
05 40$: RSB ; Exit 


| 


} 
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p++ 
; NTSMAP_DEV_CHAR = takes the device characteristics returned by FAL and maps 
hem into an RMS bit pattern, then saves them in NWA for use Later. 
If the remote device is a terminal or mailbox, this is noted also. 
Calling Sequence: 
BSBW NTSMAP_DEV_CHAR 


Input Parameters: 


R?7 NWA (=DAP) address 
R8 FAB address 
R9 IFAB address 

R10 FWA address | 
R11 Impure Area address 


Implicit Inputs: 


DAP$L_DEV 
DAP$V_DEV 


Output Parameters: | 
RO-R2 Destroyed | 
Implicit Outputs: 
NWASL_DEV 
NWASV_DEVCHAR 
NWASV_DEVMBX 
NWASV_DEVTRM 


Completion Codes: | 


WRIPIMINPINININININING 2 2 2 2 PP PM MH MP DOOCOOOOCOOCOCOOOOOOO PMN 


SODWNAMNE WN O OONAU EWN 9 OO NAU SW OO ODNAULS WN OC OONAUESWN—OOONOUS wm 


None 
Side Effects: 
None 


NTSMAP_DEV_CHAR:: : Entry point , 
BBS #DAPSV_DEV,- : Branch if partner returned device | 
DAPSL_ATTMENU(R7),10$_—; pcoeractertetics | 


RSB 
10$:  $SETBIT #NWASV_DEVCHAR, (R7) 


OE €0 
01 40 A? 


xi 
; Flag receipt of characteristics 


: Map DAP bit definitions into RMS bit definitions for the field and store them 
; in NWA for use Later. 


ee ee oe ie wee eee elelelelololelolelololelelelelolololeloleolelelololololololololo) 
SOOO DW COD AAA DA AA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AIAI AO 


ee ee oe ee eee lelelelololololololololololololo) 


SS AP ae et et tk el ek ee el eh ah oh eh eh ah eed thrid 


DO MOVL DAPS$L_DEV(R7) ,R1 ; Get DEV bits returned by FAL 
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NTOACCESS NETWORK ACCESS/DEACCESS ya et hy ¢ $706 AX/VMS Macro V04-00 Page 11. 
v04-000 NTSMAP_DEV_CHAR = MAP DEVICE CHARACTERIS 5=SEP-1984 16:20: RMS.SRCINTOACCESS.MAR; 1 (6). 
52 D4 OOFS 451 CLRL R2 H pi eee corresponding RMS bits 
OF6 126 SMAPBIT DAPSV_DEVREC,DEVSV_REC ; Map REC bit 

OOFE 45 SMAPBIT DAPSV_DEVCCL,DEVSV_CCL ; Map CCL bit 

0106 454 SMAPBIT DAPSV_DEVTRM,DEVSV_TRM ; Map TRM bit 

O10E 455 SMAPBIT DAPSV_DEVDIR,DEVS$SV_DIR ; Map DIR bit 

0116 456 SMAPBIT DAPSV_DEVSDI,DEV$V_SDI ; Map SDI bit 

Q11E 457 SMAPBIT DAPS$V_DEVSQD,DEV$V_SQD ; Map SQD bit 

0126 458 SMAPBIT DAPSV_DEVSPL,DEVSV_SPL ; Map SPL bit 

O12E 459 SMAPBIT DAPSV_DEVNET,DEVSV_NET ; Map NET bit 

0136 460 SMAPBIT DAPSV_DEVFOD,DEVSV_FOD ; Map FOD bit 

O13E 461 SMAPBIT DAPSV_DEVSHR,DEVSV_SHR ; Map SHR bit 

0146 rt SMAPBIT DAPSV_DEVGEN,DEVS$SV_GEN ; Map GEN bit 

O14E 46 SMAPBIT DAPSV_DEVAVL,DEVSV_AVL ; Map AVL bit 

0156 464 SMAPBIT DAPSV_DEVMNT,DEVSV_MNT ; Map MNT bit 

O1SE 465 SMAPBIT DAPSV_DEVMBX,DEVSV_MBX ; Map MBX bit 

0166 466 SMAPBIT DAPSV_DEVDMT,DEVSV_DMT ; Map DMT bit 

O16E 467 SMAPBIT DAPSV_DEVELG,DEVSV_ELG ; Map ELG bit 

0176 468 SMAPBIT DAPSV_DEVALL,DEVSV_ALL ; Map ALL bit 

O17E 469 SMAPBJT DAPSV_DEVFOR,DEVSV_FOR ; Map FOR bit 

0186 470 SMAPBIT DAPSV_DEVSWL,DEVSV_SWL ; Map SWL bit 

O18— 471 SMAPBIT DAPSV_DEVIDV,DEVSV_IDV ; Map IDV bit 

0196 tes SMAPBIT DAP$SV_DEVODV,DEV$V_ODV ; Map ODV bit 

O19E 47 SMAPBIT DAP$V_DEVRND,DEVSV_RND ; Map RND bit 

O1A6 §=474 SMAPBIT DAP$V_DEVRIM,DEVSV_RIM ; Map RIM bit 

O1AE 475 SMAPBIT DAP$V_ DEVRCK, DEVSV— RCK ; Map RCK bit 

01B6 476 SMAPBIT DAP$V_DEVWCK,DEVSV_WCK ; Map WCK bit ago 

00cO c?7. —- 552~—~Cé«éi p1ee 477 R2,NWASL_DEV(R?) ; Save characteristics for use later 

0452 02 €1 O1C 478 EVS$V_TRM,R2,20$ ; Branch if device is not a terminal 

01C7 = 479 #NWASV—DEVTRM, (R7) ; Flag remote device as a terminal 
04 52 14 +#+€1 O1CB 480 EVS$V_MBX,R2,30$ : Branch if device if not a mailbox 
05 pice rt #NWASV_DEVMBX, (R7) ; Flag remote device as a mailbox 

3 Exi 
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N DEVICE CHARACTE .* “SEP=-1984 16:20: RMS.SRCINTOACCESS.MAR; 1 (7) vO. 
-SBTTL NTSRET_DEV_CHAR = RETURN DEVICE CHARACTERISTICS 


+ 

: NTSRET DEV oer - returns the true device characteristic information to the 
ser iff all of the following conditions are met: 

1) FAL saeeenel device charact rpatiee _ ane DAP Attributes message. 
¢} FAL is implemented to DAP V5. at 

) The remote node is running VAX/VMS or *VAXELAN or the file accessed 


Fae ae | 


is a relative or an indexed file. 


This restriction is here 8 accomodate the y: Ry utility which uses 
the FABSV_BRO one RAB$V_BIO options to defer the decision of whether 
to use record I/0 ($GET7$PUT) or block I/0 (SREAD/SGRITED for sequential 
files until SCONNECT time. COPY always uses block I/0 to transfer 

relative and indexed files. 


COPY examines the device characteristics returned on SOPEN (and $CREATE) | 
in conjunction with other inputs to determine whether to use record 
or block 1/0. Since it does not know at open time if block I/0 will be | 
used, it sets the FABSV_BRO bit in FABSB_FAC on SOPEN, and if block 1/0 
mode is chosen, it sets the RABSV_BIO bit in RABSL_ ROP on $CONNECT to 
specify block I/0 mode. 


Note that NTSGET_FAC_SHR and NTSENCODE_ROP send the DAP$V_BRO and 
oe ROPBIO bitS, respectively, based on a similar system specific 
check. 


: 
| 
Note that the eg a used to return device characteristics may become 
: less restrictive in the future, especially if COPY is modified to avoid 

: using the FAB$V_BRO and RABS$V _B10 options. | 
; Calling Sequence: 
BSBW = NTSRET_DEV_CHAR 

Input Parameters: | 
R8 FAB address 
; 4 IFAB address 


R10 FWA address 
R11 Impure Area address 


Implicit Inputs: 


DAPS$V_GEQ _V56 

DAPS$V_ =VAXTRS DAP$V_VAXELAN 
IFBSL_N PTR 
NWASB_ “ORG” 
NWASL_DEV 

NWASV_DEVCHAR 


; Output Parameters: 
R1 Destroyed 
: ; Implicit Outputs: 


DOCSCOSCODSCOSCSOSCSOSOSOSDOSOSOSOSCSDSOSCOSOCOSCDOOOODOOOOCOOOCOOOCOOOOOOOOOOOOOCO 
TT ee eee eee eee ee ee ee ee ee 
VVVSVVV VV VV VV VV VV VV VUV VV 99 VV VV VV VVC VVC CVD 90C9U909009009090000000000 
BERR RRR RRR RRR RRR RRR ERR REE R RP RRR RRR PPR PRR RRP PRR PPR RRP RPP EE 
QDVDVIV IV IV IV IVIVIVDIVSIVSIVLUIUIVSUSVSVUSUSV SUSU US USSU USS USUI SUSI ISISTSIT E B PPP PPLEEE 


SF ANAANNAWINWINoNoNoNoNoNnonony 
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NETWORK ACCESS/DEACCESS a; it + 3:47: 208 AX/VMS Macro V04-00 Page 
NTSRET_DEV_CHAR = RETURN DEVICE CHARACTE 5=-SEP-1984 16:20: RMS.SRCIN FOR ACCESS.MAR;1 
104 2] ; FABSL_DEV 
104 tg 5 FABSL_SDC 
104 24 : 
104 44 ; Completion Codes: 
0104 545; 
01D4 248 3 None 
Q1D4 547; 
0104 548 ; Side Effects: 
01D4 23? 3 
01D4 50 ; None 
0104 551; 
01D4 26 i-- 
01D4 5 
0104 54 NTSRET_DEV_CHAR: ; Entry point 
DO 0104 555 MOUL iFBSL NWA_PTR(R9) ,R1 : Get address of NWA (and DAP) 
E1 0108 556 BBC #NWASD_DEQVCHAR, (R1),208 : ; Branch if partner did not return 
01DC §3=«.: 57 device characteristic information 
E1 O1DC 558 BBC #DAPS$V -GEO, Lt ee 08 Branch if partner uses DAP before v5.6 
EO O16€0 559 BBS #DAPSV_VAXD ; Branch if partner is VAX/VMS 
EO QO1F4 560 BBS #DAPSV— VAXELAN, auf 108 Branch if partner is VAXELAN 
91 O168 561 CMPB NWASB VORGCRT). WNWASK_SEQ: Branch if SEQ organization 
13. O1ED 206 BEQL 20$ ; else fall thru if REL or IDX 
DO OjEF 563 10$: MOVL NWASL pey int) om ; Get actual device characteristics 
O1F4 564 SSETBIT #DEV$T_NET,R1 ; Declare this a remote Pee pty device 
DO O1F8 565 MOVL R1, FABSL _DEV(R8) ; Update user DEV field in FAB 
DO OFC 566 MOVL R1,FABSL_SDC(R8) ; Update user SDC field in FAB 
05 0200 567 208: RSB : Exit 
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ACP ACCESS FUNCTI 5=SEP=1984 16:20: RMS.SRCINTOACCESS.MAR; 1 ( 


-SBTTL NTSACCESS = PERFORM NETACP ACCESS FUNCTION 
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ha 
3; NTSACCESS = creates a logical Link. 
: Calling Sequence: 
BSBwW NTSACCESS 
Input Parameters: 
Re FAB address 
R IFAB address 
R10 FWA address 
R11 Impure Area address 


; Implicit Inputs: 


: Output Parameters: 

: RO Status code (SS) 
$ Ri-R6 Destroyed 

; AP Destroyed 


Implicit Outputs: 


$ 
; Completion Codes: 


178$L_10S 
IFBSV_ACCESSED 
NWASO"NCB 


Standard system service status codes 
Side Effects: 
None 
NTSACCESS:: 3; Entry point 
+ 


Build a Network Connect Block (NCB) to be used as input for the NETACP 
access function. 


OOCOCCCOCOCOCCOOCOSO COSCO OSSSSOCSOOCOCCOCOCOCCOOCOCOOOCOOOCOOOOOOOOOoOOo 


nodename’'access_control_string’'::‘‘objecttype=taskid/netacp_data"’ 


POPPIN ININY 2 9 I HM QDOOODOODOOOOOOOOOOO OO OW WOOD OOOONINNNININININNIO OO 


Oh ak ah hh 8 hh hh 8 8 9) SS Sl 
MEAN OODONOA UE WN 9 OD NAME WN SO OO NAUE WN 0 ODNOAUE WN OOONOUMLSWN0ON”0 Ww 
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> The NCB consists of a string with the following general syntax: 


Oooooo: 


Where: 


PS anne 2 ay © | OS St ce ag 


NTOACCESS NETWORK ACCESS/DEACCESS 15-SEP-1984 23:47: AX/VMS Macro V04-00 Page 
v04-000 NTSACCESS = PERFORM NETACP ACCESS FUNCTI aaa 4 3:35:08 RMS.SRCINTOACCESS.MAR; 1 
01 6 § ; (1) the access control string in the node spec is present only if provided 
, Oar g by the user (directly or via logical name translation). 
a 8 g (2) for accessing a remote file, the quoted string used by RMS is ‘‘FAL="" 
1 647 3 (to request the services of fhe remote file access Listener). 
+ 630 3 (3) for user task-to-task communication, the quoted string used is the one 
oF 063) 3 supplied which / include an optional data Goynted string. Note that 
01 6 § 3 the logical name SYSSNET used as a file specification translates to a 
8 Bt ? Z ; string of the node::'‘objecttype=...'' form. 
0201 635 ; Obtain the node spec string. 
B81 gb 
51 3C AY 00 : 6} 638 MOVL IFBSL_NWA_PTR(RY) ,R1 ; Get address of NWA 
56 0264 C1 7E 0205 639 MOVAQ NWA$Q"-NCBTR1),R ; Get address of scratch descriptor 
53 052C C1 9E 020A 640 MOVAB NWAST-NCBBUF (R1),R3 ; Get address of scratch buffer 
04 A6 =653~— sé be OF 4) MOVL R3,4(R6) 3; Fill in descriptor address 
01B4 CA 28 0213 7! MOVC3 FWAS$Q_NODE1(R10),- ; Copy pr teery (first) node spec string 
63 0188 DA O17 643 @FWASG_NODE1+4(R10),(R3); to NCB including double colon 
$18 645 ; : 
3518 648 ; Obtain the quoted string. 
$516 648 ; Determine whether the network request is for file access via a remote FAL or 
0218 649 ; for task-to-task communication. 
021B 650 ; 
021B 651 : 
10 69 3€ €0 og i8 $36 BBS #IFBSV_DAP,(R9),10$ ; Branch if file access request 
O21F 654 ; , . 
O21F 655 ; It is a task-to-task communication request. 
O21F 656 ; 
O21F 657 
O21F 658 $STSTPT NTACC_NSP : é 
0170 CA 28 0225 659 MOVC3 FWA$Q QUOTED(R10),- ; Append quoted string to NCB 
63 0174 DA 0229 660 aF WASG_QUOTED+4 (R10), (R35 
11 022D 661 BRB 20$ ; We're finished building NCB 
O22F 66 
O22F 663 ; ; 
Osse 664 ; It is a remote file acces request. 
O22F 665 ; 
O22F 66 
Oeee 667 10$: STSTPT NTACC_DAP : : 
83 4(€414622 BF DO 0235 668 MOVL #*A\"FAL\, (R3) + 3; Request object type FAL 
83 2230 8F BO 8 3C =: 669 MOVW #*A\=""\, (R3)+ 3 
gle 
OSe4 ore 3; Calculate the size of the NCB and store it in the NCB descriptor block. 
0241 674 ° 
66 53 04 A6 (C3 8 rh or 20$: SUBL3 4(R6),R3, (RO) : Fill in descriptor size 
0246 677 ;+ 
8 46 978 ; Perform the NETACP access function. It will be either an NSP connect. 
46 679 ; initiate or an NSP connect confirm function. Both use the same function and 
8 46 680 ; subfunction codes, but NETACP differentiates based on the context of the call 
46 681; (whether or not the taskspec string in the NCB contains a slash followed by 
0246 682 ; a two-byte nonzero DECnet Link identifier). 
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ACP ACCESS FUNCTI 5-SEP-19 : RMS.SRCINTOACCESS.MAR; 1 


JS$B vet Spa te Request event flag number to use 


MOVL )+,R2 ; and store it 
MOVL Re RT 3; Copy address of NCB descriptor 
OPL R6 3; Save return 
$Q10_S- 3; Issue connect initiate/confirm 
EFN=R2- 3 ayers flag # 
CHAN=IFB$W_CHNL(R9)- Channel # 


"Function code 
0’ status block 
AST address 


uncer ies ACCESS! 10$™ ~Actess="; ; 
10SB=1F BSC hs hee I/ 
ASTADR=L“RASSTALLAST~ 
ASTPRM=R9- 


TPR 3; AST parameter 

1=0- 3; Must be zero 

=R1 ; Address of NCB descriptor 
BLBC RO, 30$ ; Branch on failure 
JSB RMSSTALL : Await completion 
BLBC RO, 30$ ; Branch on failure 


State that ACP access function has been performed successfully. This will 
trigger the network deaccess code at close time. 


SSETBIT GIF RSV _ACCESSED, (AY) ; File has been accessed 


30$: JMP (R6) ; Return to caller 
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04-000 


54 
00000000 EF 
52: BE 
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-SBTTL NTSDEACCESS = PERFORM NETACP DEACCESS FUNCTION 
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p++ 
; NTSDEACCESS = destroys a logical Link. 


Calling Sequence: 


BSBW NTSDEACCESS 
Input Parameters: 

R8 FAB address 

Rg IFAB address 

R10 FWA address 

R11 Impure Area address 
Implicit Inputs: 

IFBSW_CHNL 
Output Parameters: 

RO Status code (SS) 

Ri-R4 Destroyed 

AP Destroyed 
Implicit Outputs: 

IFBSL_10S 


Completion Codes: 
Standard system service status codes 
Side Effects: 


7 None 

747 

748 :-- 

749 3 

750 NTSDEACCESS:: ; Entry point 

751 STSTPT NTDEACCES 3 

P36 POPL 3; Save return PC 

75 RMSSETEFN ; Request event flag number to use 
754 MOVL (SP)+,R2 3; and store 

755 $Q10_S- ; Issue synchronous disconnect 
£38 EFN=R2- 3; Event flag # 

75 CHAN=IFB$W_CHNL(R9)- - Channel # 

758 FUNC=#10$ BEACCESS!IOSM_SYNCH- ; Function code 

759 10SB=I1F BSC eee ; 1/0 status block 

760 ASTADR=L“RASSTALLAST- ; AST address 

761 ASTPRM=R9- 3; AST parameter 

76 1=0- 3; Must be zero 

76 P2=4#0 : Specify no userdata to return 
764 BLBC RO,10$ ; Branch on failure 

765 JSB RMS$STALL : Await completion 

766 10$: JMP (R4) 3; Return to caller 


J 6 


NTOACCESS NETWORK ACCESS/DEACCESS 15-SEP-1984 23:47: AX/VMS Macro v04-00 Page 18 
aati NE SDEAC CESS - PERFORM NETACP DEACCESS Fu mie} $3:36:08 YRMS SRCINTOACCESS MAR: 1 ° (9) | 
CE 767 
gsce 768 - END : End of module | 


NTOACCESS NETWORK ACCESS/DEACCESS 13-SE0-1986 93:47:08 YAXViS Macro V04-00 
Symbol table “SEP=1984 16:20: RMS.SRCINTOACCESS.MAR; 1 
$$.PSECT_EP = 00000000 DAP$V_DEVELG = 9 11 
SSRMSTEST z 1A DAPS$V_DEVFOD = 07 
$SSRMS_PBUGCHK = Ag DAPS$V_DEVFOR 2 17 
SSRMS_TBUGCHK = 0000 DAPS$V_DEVGEN = 19 
$SRMS_UMODE = i 4 DAPSV_DEVIDV = 0D 
= 000 DAPS$V_DEVMBX = 12 
DAP$B_BKS 9808 DAPSV_DEVMNT = 3 $808 
DAP$B_BSZ 000 APSV_DEVNET = 00018 
DAP$B_DATATYPE 0000044 DAPS$V_DEVODV = ast 
DAPSB_DCODE_F ID 0000019 DAPS$V_DEVRCK = 0000001 
DAP$B_DCODE_MAC 0000018 DAPS$V_DEVREC = 00000000 
DAP$B_DCODE_MSG PO ORgTA DAP$V_DEVRND = 4 
DAPS$B_FSZ 0000051 DAPS$V_DEVRTM = 00013 
DAP$B_ORG 0000045 DAP$V_DEVSDI = 00000004 
DAP$B_RAT 00000047 DAP$V_DEVSHR = 00000008 
DAPSB_ 00000046 DAPSV_DEVSPL = 4445494 44 
DAP$B_X FIELD 00000024 DAP$V_DEVSQD = 00000005 
DAPS$C_BCN 000000C0 DAPS$V_DEVSWL = 0000000F 
DAPS$K_BLN 000000C0 DAPS$V_DEVTRM = 44 4 
DAPSK_F 1X = 00000001 DAPS$V_DEVWCK = 00000016 
DAPSK_SEQ = 00000000 DAP$V_GEQ_V56 = S44 4 
DAP$L_ALQ 0000004C DAPS$V_VAXELAN = 00000035 
DAPSL_ATTMENU 00000040 DAPSV_VAXVMS = 00000034 
PSL * 00000030 APS$W_BL 00000048 
DAPSL._CRC_RSLT 00000020 DAP$W_DEQ1 00000054 
DAPSL_DCOBE_STS 00000018 DAPS$W_FFB 44 4 84 
DAP$L_DEV BON e oes DAPSW_LRL 0000007 
APS$L_EBK 000007 DAPSW_MRS 0000004A 
DAPS$L_FOP1 00000064 DAP$W_PARTNER 00000006 
DAPS$L_HBK 00000074 DAP$W_VERSION 00000004 
APSL_MRN 00000058 DEVSV_ALL = 00000017 
DAPSL_MSG_MASK 0000001C DEVS$SV_AVL = 00000012 
DAPS$L_ SBN 0000007C¢ DEVS$V_CCL = 00000001 
DAPSL_SSPWA 00000080 DEVSV_DIR = 44 ety 
DAPSL_TEMP 00000090 DEVSV_DMT = 0000001 
DAPSM_CMPFMT = si 4494 DEV$V_ELG = 00000016 
DAPSM_DMO = 00002000 DEV$V_FOD = 44 4 
DAPSM_EMBEDDED = 00000010 DEVS$V_FOR = 0000001 
DAPSF_ IMAGE = SR OBO LS DEVS$V_GEN = 00000011 
DAPSM_LSA = 0000004 DEV$V_IDV = QOOOOOTA 
DAPSM_MACY11 = 00000080 DEVS$V_MBX = 00000014 
DAPSM_TMP1$ = sated DEVSV_MNT = 00000013 
PSM_ TMP = FC000000 DEVS$V_NET = 0000000D 
DAPSM_TMP3$ = 0008 DEV$¥_ODV = PORN RO Te 
DAPSM_THP4S$ = 01 DEVSV_RCK = 3 
DAPSM_TMP5$ = F000 DEVSV_REC = BE RR0 
DAPSM_ZERO = 0000 DEVSV_RND = 0000001C 
P$Q-DC FLG 00000000 DEVSV_RTM = 0000001D 
DAP$Q_MSG_BODF1 8 0 DEV$V_SDI = ae 
DAP$Q_MSG_ BUF 2 000001 DEVS$V_SHR = 00 pig 
DAP$Q_RUNSYS 8 0005C DEVS$V~SPL = 00000 $9 
DAP$V_DEV = 0000000E DEV$V—SaQD = 000000 
DAP$V_DEVALL = 8 0 DEVSV_SWL = $ 19 
DAP$V_DEVAVL = 1 DEVS$V_TRM = 02 
DAP$V~DEVCCL = $ DEVSV-WCK = 0000001F 
DAP$V_DEVDIR s 3 ERRQUO 8 ye Q 01 
DAP$V_DEVDMT = 00000008 F ABSB_ACMODES = 4A 
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Symbol table 


FABSL_DEV 
FABSL—FOP 
FABSL~SDC 
FABSS~CHAN_MODE 
FABSV “CHAN MODE 


FWASB_SUBNODCNT 
FWASQ"NODE1 


FWASV_QUOTED 
UASY -MILDCARD 
IFBSL_AS_ DEV 
IFBSL_DEVBUF S1Z 
IFB$L_10S 


C 
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NAMSV- WILDCARD 
ACCESS 


NWA$K_SEQ 
NWASL_ALLXABADR 
SUUASL DAT HABADR 
NWASL_FHCXABADR 
NWASL_KEYXABADR 
NWASL_MSG_MASK 
NWASL~ PRORABADR 
NWASL_RDTXABADR 


NETWORK ACCESS/DEACCESS 


Qoooeo 
3 


NWASL_SAVE_FLGS 
NWASL~SUMXABADR 
NWASL~ THREAD 
NWASL-XLTATIR 
NWASL-XLTBUFFLG 
NWASL-XLTCNT 
NWASLXLTHAXINDX 


NWASQ"LNODE 
NWASQ_LOGNAME 
NWASQ_NCB 
NWASQ_RCV 
NWASQ_SAVE_DESC 
NWASQ_XLTBOF 1 


NWAST— 
NWAST—INODEBUF 
NWAST-ITM_ATIR 


A 
NWAST_SCAN 
NWAST_TEMP 
NWAST_XLTBUF 1 


NWASW_ BUILD 
NWASW_DAPBUF S1Z 
NWASW"DIR_ OFF 
NWASW_DISPLAY 


NWASW"FIL_OFF 
NWASW"JNL RABJOP 


PARSE QUOTED_ STRING 
RACE 


PIOSA-T 
PSL$C “EXEC 
RMSCHRNAM 
RMSSETEFN 
RMSSTALL 
RNSSTALLAST 
SYSSASSIGN 


on 
_< 
“oz 
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MAD OAAD A OP PMO FAM O QMO F OMOMMNLSUMAOWA SD NO MNS WWINIVIWIT PE 
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00000001 


Reekeeen 
Reeeeenee 
geraereee 
Reakeeee 


00018634 


geaekeeee 
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Symbol table SEP=1984 16:20: RMS.SRCINTOACCESS.MAR; 1 (9) 


SYS$Q10 eenenene GX 1 
TPTSL_NTACC_DAP teeeeeee X01 
TPTSL-NTACC “NSP teeeeeee X01 
TPTSL_NTDEACCES eeneeeee =X 01 
poor anes mow enemioe + 
! Psect synopsis ! 
pew woe em seceszoeont 
. ABS, 900G0000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
NF SNE TWORK Qoooogce ( 718.) O1¢ J.) PIC USR CON REL GEL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS 00000800 ¢ 2048:) 02 ( 2:) NOPIC USR CON ABS LCL .NOSHR EXE RD WRT NOVEC BYTE 


foresee maw enoon an weowmewaaene + 


: Performance indicators : 


Phase Page faults CPU Time Elapsed Time 
Initialization | 47 00:00:00.15 00:00:01.17 
Command processing 154 Bp BN 200-88 a See 
Pass 1 466 00:00:19.1 00:00:47.35 
Symbol table sort 0 4 So oe 00:00:03.95 
Pass 2 142 00:00:03.55 00:00:08.10 
Symbol table output 28 00:00:00.18 00:00:00.50 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 841 00:00:26.62 00:01:06.96 


The working set Limit was 1800 pages. , 
105919 bytes (207 pages) of virtual memory were used to buffer the intermediate code. 
There were 100 pages of symbol table space allocated to hold 1925 non-local and 57 local symbols. 
768 source Lines were read in Pass 1, producing 15 object records in Pass 2. 
5 pages of virtual memory were used to define 34 macros. 
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+ 
H Macro Library statistics ; 


; 
| 
| 
| 
| 
} 
| 

PSECT name Allocation PSECT No. Attributes 


Macro Library name Macros defined 
$255$DUA28: CRMS.OBJIRMS.MLB; 1 17 
“Fea UAB EeYSLIBISTARLET MLB:2 13 
TOTALS (all Libraries) 30 


| 
} 
2224 GETS were required to define 30 macros. | 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NTOACCESS/OBJ=OBJ$:NTOACCESS MSRC$:NTOACCESS/UPDATE=(ENH$:NTOACCESS) +LI1B$:RMS/LIB 
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